home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / graphic / tpega.zip / GPSCALE.P < prev    next >
Text File  |  1986-02-01  |  954b  |  18 lines
  1. {                                                                             }
  2. {       EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01FEB86.        }
  3. {       (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     }
  4. {                                                                             }
  5. {       Description: The specified X,Y coordinate is scale to the current     }
  6. {       viewport (no clipping).  See the routines GPWINDOW, GPVIEWPORT,       }
  7. {       GPCLIP1, and GPCLIP2.                                                 }
  8. {                                                                             }
  9.  
  10. procedure GPSCALE(var X,Y: Integer);
  11. begin
  12.   inline
  13.     ($C4/$7E/$08 /$26/$8B/$05 /$2B/$06/GDWD_X1 /$F7/$2E/GDVW_X3
  14.       /$F7/$3E/GDWD_X3 /$03/$06/GDVW_X1 /$26/$89/$05 /$C4/$7E/$04 /$26/$8B/$05
  15.       /$2B/$06/GDWD_Y1 /$F7/$2E/GDVW_Y3 /$F7/$3E/GDWD_Y3 /$03/$06/GDVW_Y1
  16.       /$26/$89/$05);
  17. end;
  18.